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-Sep-1 DISKSVMSMASTER: CMSGFIL.SRCJMAIN.B32; 39 (1) 


; 1 1 9 MODULE main (ZTITLE ‘MESSAGE FILE COMPILER’ IDENT = ‘'V04-000', MAIN = start) = : 
; ¢ § BEGIN ; 
= .s 00, 1! 
: 2 004 : leunenuceneeeereereceneenneneeereerertrereristereeteeenententnetenerenenentes Py 
5 '® * Py 
; 7 $0 1 !e COPYRIGHT i) 1978, 1980, 1982, 1984 BY * : 
; 8 44 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * , 
a 909 1 fs ALL RIGHTS RESERVED. * : 
$ ; * : 
oe $019 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
: \¢ B26 1 !* ONLY IN. ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
; 1 1 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
H 14 0014 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
H 15 Bat 2 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; 1$ Bor$ : i TRANSFERRED. * ; 
3 fe x $ 
FH 18 0018 1 !* THE gh oy phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; 19 0019 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ; 
; 30 9020 1 is CORPORATION. * ; 
° . ® o 
; $§ 00 ; 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
: 2 00. 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; $¢ 0024 1 !« * : 
$ 5 0025 1 !* * ; 
$ $$ 8958 1] [wee eee eee RAE E AERA AERA AAA EE ARATE AAA RAAT EAE A AAR A RARE AATEAA AAA ARATE EE ; 
: 1 ; 
; 0028 1 !++ : 
3 $3 594 1! FACILITY: Message compiler . 
3 0 0030 1! : 
7S 0031 1 ! ABSTRACT: 3 
; 3 O03 1/ 3 
ga 0035 1! This compiler translated message definition language : 
: $e sit .. into object modules ; 
Hy 5 0035 1! ; 
; » 0036 1 | ENVIRONMENT: 3 
3 7 0037 1! : 
3 $ sited ' VAX/VMS operating system. unprivileged user mode, : 
; re 330 } AUTHOR: Tim Halvorsen, Nov 1979 3 
; 4 Bneg 1 | Modified by: F 
3; 6 0043 1! : 
: 646 sg 1! v03-006 600068 req Awdziewicz Vedye=t -1984 3 
a 45 1! Make /list ay default for batch mode compiles ; 
; $8 B06 1: (Chan e check for presence of global use of Veen tttenal 3 
; 6 4 7.3 qualifiers. : 
3 $8 : } = Centralize ASCID strings by using SD_ macro. : 
a = 6080 1: v03-005 GJA0074 Greg Awdziewicz 6-Mar-1984 $ 
a 0051 1! - Change output file bering’? using $Parse to use 3 
3 26 26 1! the new version ft LIBSFind_file routine which handles 3 
= b2 1! multiple input file stickynéss. F 
; «654 54 1! - Change input fite searching to use the new sticky-context : 
3 2 B22 ' argument in the LIB$File_scan routine. 3 
3; OV § 1! V03-004 GJA0066 Greg Awdziewicz 53-Feb-1984 
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- Reset the FABSV_OFP bit for the output qualifiers 
which have values specified so that Message's treatment 


3 1! 

: 8. 

3 o0 bey : is consistent with other language processors. 

: 6 06¢ 1 V03-003 GyA0062 Greg Awdziewicz 9-Jan-1984 

a © 065 1! - Remove references to pseudo qualifier /nodbject now that 
: re bee : NEG is allowed in CLD as an operator. 

; 66 008 1 i v03-002 gpAcese Greg Awdziewicz 7-Sep-1983 

; 7 0067 1! ange to new CLI interface. {incorporating previous module, 
: $8 6¢: ; gefa ALS, into this module) 

: 70 01: v03-001 yu 0058 Jim eaque 22-Sep-1982 

5 4! 4a : } Failure to find te file is FATAL, Like ether compilers. 
BS $078 1 i V02-006 JwWT0011 Jim Teague 15-Feb-1982 

: 74 0074 1! pecial cased the elimination of error summaries when 
: Le Bf? ! } no input files found. 

: 77 0077 1: v02-005 BLS0145 Benn Schreiber 6-Feb-1982 

5 A th : Change FMGSFILE _SCAN to Liest ILE_SCAN 

: 80 0080 1! V02=004 ywT0005 Jim Teague 11-Dec-1981 

;) (OBI 0081 1! Set FOP=OFP in output fabs to keep output files 

3 : B08 : in the default directory 

; «8 0084 1! v02-003 ywT0002 Jim Teague 06-NOV-1981 

; 3? eH ; Added /SDL capability 

: 87 0087 1! v02-002 PcG0002 Peter George 24-Aug-1981 

g 3 494 ' Allow use of SYSBINBUT® os nput file spec. 

; 90 0090 1! v02-001 PCG0001 Peter George 29-Dec-1980 

; 91 0091 1! Add /MDL functionality. 

: 9 0092 1! 

; § 0093 1 !-- 

; 94 0094 1 

s 9 0095 1! 

3 96 0096 1 ! Include files 

; 97 0097 1! 

s 0098 1 pees 

; 130 st44 : LIBRARY ‘SYSSLIBRARY:STARLET.L32'; ' VAX/VMS common definitions 
; 101 0101 1 SWITCHES  LISTCREQUIRE) ; ' Print require file 

: 102 0102 1 REQUIRE ‘SRC$:MSG.REQ'; ' Command definitions 
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ZSBTTL "Required file for MESSAGE source modules’ 
: eS 


Require file for all modules in the message compiler 


; Version: *v04-000' 


MAPS SESESICIS EET TTT TTT TTT Tere eT c ieee e circ irri itis iii titi iii iiiii 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
't DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS Ag lt UNDER A LICENSE AND MAY BE ySED AND ge ht 
fe oer IN 1. m DANCE WITH THE TERMS OF SUCH oe ND WITH THE 


0-74 Pa 3 
CMSGF I oer SmsG.REQ:1 if (1) 


cs 
& 
*® 
® 
® 
© 
® 
® 
. R ® 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
' ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE + 
® 
® 
® 
® 
® 
ft 
® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!t CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 
Lonnateebianenesoneunsedsnbeunnensnenennnaenenieeeensenednenbbbenntbatbnein 


DDDDDADADADAAAAAAAAAAADAADzDD 
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MIMNNPOPONOPON) 2 2 2 OO 


lee 
! FACILITY: MESSAGE compiler 
ABSTRACT: 


This is the common require file for all modules in the 
message compiler. 


ENVIRONMENT: 
VAX/ VAS eperesing ytety unprivileged user mode utility, 


H 1 
3 1 
oO 1 
eo 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
6 1 
; 1 
3 1 
3 1 
° 1 
: 1 
eo 1 
3 1 
3 1 
3 1 
3 1 
3 1 
: 1 
5 1 
: 1 
; kRO131 1 
3 1 
3 1 
; 1 
se 1 
* 1 
s 1 
8 1 
3 1 
: 1 
3 1 
3 1 
3 1 
3 1 
: 1 
3 1 
3 1 
3 1 
; 1 
3 1 
; 1 
$ 1 
: 1 
§ 1 
; 1 
; 1 
3 1 
3 1 
; 1 


! 

i 

i 

' 

! 

{ 

i 
bp) operates at non-AST Leve 
RO146 AUTHOR: Tim Halvorsen, Nov 1979 
RO148 i MODIFIED BY: 
RO150 i v03-002 GJA0052 Greq Awdziewicz 23-Nov-1983 
RO151 ' Add size Literal and field definitions for the queue of input 
Rot eg ‘ file spegs /ccattons. 
Rote ! Add subtitles. 
ao lae } Add error code for parsefail. 
RO136 i v03-001 BLS0168 Benn Schreiber 2-Apr-1982 
aol ee Do not require MSGDEF as it is now in STARLE " ond L1B 
RO159 lence 
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; ® 160 1 ZSBTTL ‘Internal definitions’ 

: Role? : 

: RO! g 1 i Define message structure definitions 

: RO1eS 

: ROW6 1 REQUIRE ‘LIBS:MSGINT.B32'; ! Message compiler internal definitions 


ee eee 


15 oy ; oP ys , 
VO4~000 Internal definitions” 1Sfe0~198e 38:36:98 “S¥sSSouadBscasch Ii obJsmscint.e32;1°°%° «13 


: R if 1 i Internal compiler structures 

> RO170 1 i 

5 R 17 41 leacce ‘ ‘ 

; OR 1% 4 } Version ‘'v04-000 

: . 1% | Seeteneeeneerenecesnasennsenasenecenestseseseneeneeeensanenecenentenecetes 

; 978, 1980, 1982, 1984 BY ° 

: ROTTS i ‘3 SIGI TAC EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ‘ 

; 178 ie ALL RIGHTS RESERVED. . 

: ROI is PIED * 

: FURNISHED UNDER A LICENSE AND MAY BE USED AND CO 

BAB | IS ieee ein eetted ah ce ttle oe tat ee: 

: ROI 1 it INCLUSION ‘ ee 

: PROVIDED OR OTHERWISE MADE AVAILABLE TO AN 

: ROT } is STHER PERSON NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY  * 

> RO18S ie TRANSFERRED. ‘ 

| RO1 :* e 

: WARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

: nOi8? i is ANB TSMOULD NOT. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT + 

: ROt89 ie CORPORATION. ‘ 

a: ie FITS * 

: NO RESPONSIBILITY FOR THE USE OR RELIABILITY 0 

: ROt3¢ i is COPTUARE ON EQUIPRERT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 

: RO193 1 ie ‘ 

: 4d ba : S pinatiiadihdiehanddemteasnmmmmnitiddmancumddeniannbhaeiemnseninmeamennsad 

Bis 

4 1 

; Bo Define facility definition block 

; n020¢ 1... SFACDEF 

tk 0%; ! LINK TO NEXT IN CHAIN 

; RO20$ 1 MACRO FACSHCUNBER . bet 0%; | FACILITY NUMBER 

: ROS MACRO FACSB-NAMELEN = 6.0,8,02; i LENGTH OF FACILITY NAME 

: RODS i CRO FAC$T NAME = 7,0,0,0%:; i FACILITY NAME (15 CHARS MAXIMUM) 

; R008 | LITERAL FACSS-NAME . 15; | 
no 1 : tITERAL FACSK-LENGTH : $5: ! LENGTH OF BLOCK | 
+ RO21; 1 | 
. ' | 
; no 18 Define message code definition block | 
; RO 1g !.. . SCODEDEF | 
¢. 2 ; EXT IN CHAIN | 
: NK = 0,0,32,02; ' LINK TO N 

: RO 3 i RACRO CODES “NUMBER = +0735 0%; ! MESSAGE NUMBER 

: i LTTERAL COOESK-CENGTH = : ! LENGTH OF FIXED PORTION 

: 1 ITERAL CODESC_MSG = 8; crtonas 

: RO q 1 tITERAL £ODESK~MSG = 8; ! MESSAGE RECORD FOLLOWS (MSG $ 


SS > 


yo4~000 Patornat Getixtctens if3e 8eb-1984 98:08:98 “SSSSSDUARBSERSGY IL OBSINSGINT.B32:1° 9%" «1 


; RO226 1 

: n0 ee ' 

5 ~ 8 } Define symbol table entry 

: r0 1 

; R § 1... SSYMDEF 

: RO 7 MACRO SYMSL_LINK = 0.0.32,0%: ! LINK TO NEXT IN CHAIN 
> RO2 é 1 MACRO SYMS$L~ VALUE = 4,0,32,0%; i VALUE OF sy MBOL 

; RO233 1 MACRO SYMSB-SYMLEN = 8.0.8,0%; ! LENGTH OF SYMBOL NAME 

> RO2S6 1 MACRO SYMS$T-SYMBOL = 9,0,0,0%: i SYMBOL NAME (31 L CHARS MAX IMUM) 
; R02 .% LITERAL SYMSS— = 3; 

: RO 1 LITERAL SYMSC"LENGTH = 40; 

: RO237 1 LITERAL SYMSK-LENGTH = 40; 


| 
' LENGTH OF ENTRY | 
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MESSAGE F COMPILER 16-Sep-1984 02:02: VAX-11 Bliss-32 V4.0-74 Page 7 
Required tite for MESSAGE source modules 19730071382 95:25:93 “355s$00 A28: : CMSGF 1c’skeSmsG.REO: 1 : (3) | 
RSBTTL "Required file for MESSAGE source modules’ 


i Define fields for the quews element for an input filename and 
define a literal for size of the element: 


FIELD 
info. queve_fids = 


queve_flink = He: 9: 
8 


Backward Link. 
Descriptor tor filename: 
ee» Length subfiel 

. address ‘subfield. 


queue, “blink = sf 
name_desc = 


we ye #5 95 185 92 


TES; 


LITERAL 
queue_element_size= 16; ! Total (byte)size of queue element. 

' 

Define VMS block structures 


STRUCTURE 
bblock Co. .P. S, e; nj = 


| 
Forward Link for queue. 
n 
(bblock+o)<p,s,e>; 
| 
| 
} 


et a ad ss a ts 4s 4 ts 3 ta a 
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AX-11 Blis 
-Sep-1 _$255$DUA28: CMSGFIL.SRCJMSG. REQ; 1 (4) 


SSHR 3 - a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( name, code, (msg,severity), ... ) 
ne, = 
‘name’ is the name of the Fog ity (e.g., COPY) 
"code" is the corresponding facility code (e.g 9-ge4 

ar 


msg’ is the name of the shared message (e. 
severity’ is the desired message severity e.9., 


| 
| 
0, 2) 
CRO 

SSHR_MESSAGES( FACILITY NAME, FACILITY_CODE ) = 
SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE, %REMAINING ); %, 


SHRSMSG_IDS( FACILITY NAME, FACILITY CODE) C VALUE J = 
SHRSMSG_CALC( FACILITY. wNAME, FACTILITY_CODE, ZREMOVE (VALUE) ) z, 


serene Sats 4p NAME, FACILITY_CODE, MSG_ID, SEVERITY ) 


ACILITY y, $_' MSGID) = ZNAME(*SARS_",MSG_ID) + FACILITY_CODE*65536 + 
F ZDECLARED(ZNAME('STS SEVERITY) ) 

XTHEN ZNAME('STS3K_*, SEVERITY) 

ZELSE SEVERITY F172; 


MA 


F 15 


" MESSAGE F COMPILER 16-Sep-1984 02:02: VAX Page 
Vv Required HE or MESSAGE source modules 18: ~3ep - 7 95:06:98 ert a aecht OCR IMSG. REQ;1 ° 
! 
Equated symbols 
RETERAL 
=i, ' Boolean true 
ie\se = 0, i Boolean false 
ok = 1; i Success return code 


Define CLI qualifier flags (see cli_flags) 


a 8 ts 8 ts a 9 


LITERAL 
SEQULST (QUAL_,,0,1, 

(Listing,), ! /LISTING qualifier present 
Cobject.J, i /OBJECT qualifier present 
(file,), ! /FILE qualifier present 
(mdl,5, ! /MOL qualifier present 
(sdl,), ' /SOL bbe os present 
(input,), } sous ron present 
(symbols.), ! /SYMBOLS qualifier present 
(text,)); ! /TEXT qualifier present 


| 


ooo°o 
Ww Ae ee ee eh eo Nae! a ee 
Sow WN OO ODONOUES WP" OODOnrOur 


a et ot i SS Ss 2 2 Ss Ss Ss Ss ss 
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' 
Define message codes. 


Sshr_messages(msg,151, 
(syntax,severe), 
(openin,error), 
(openout,severe), 
(readerr,severe), 


| 
| 
Syntax error 
Unable to access inpu 
Unable to access outp 
Error reading input f 
(closede( error) Unable to close input 
(parsefai errors Error poretas file sp cation 
(searchfa (,errors, ! Error search ng for 
Error writing file 
| 
| 


ett tt tee 
~~ 
—~—@ —C ce 


(writeerr,error), 


CRO 
—— ee = 
IF NOT FOECLARED (SHANE ( wage * ,ident)) 


XTHEN EXTERNAL LITERAL £NAME('msg$_', ident); %FI 
aes COG, SOOM? 


ZSBTTL °° 


H 15 
FILE COMPILER 16-Sep-1984 02:03 
f Contents, Variables, Externals, etc. 12=808-1 382 95:08:03 


RSBTTL ‘Table of Contents, Variables, Externals, etc.’ 
1 
! 


Talo 


o 1 
ee 
3 
D 1 
2 1 
. 1 
; 7% 
o 1 
6 1 
rf 1 
os 1 
oO 1 
: 2 
oe 
eo 1 
3 
o 1 
Ss 
9 1 
o 1 
e 1 
o 1 
oy 
o 1 
io 
8 1 
‘. 5 
e 1 
3; 7 
.s 
2 1 
¢ 1 
a | 
Va 
3 4 
3 
mY 
= 
3 
e 1 
. F 
3; ¥ 
.,.¥ 
i 7 
, ¥ 
 . 
3 Y 
e 3 
3 6Y 
. ¥ 
e 1 
3; 7 
s hUY 
. 7 
3 (CY 
3; 7 
3 Y 
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i Table of contents 


FORWARD ROUTINE 
start, ! Main routine 

get_quals: NOVALUE, ! Get command qualifiers 

! RMS general error routine 

! Signal error searching for file 

! Process each input file 

! Compute module name string 

! Signal handler 


E 
1 
1 
1 
1 
1 


” 
@ 
oe 
7 
> 
‘ 
@ 
> 
7 
°o 
7 
~~ 


do_file, 
get module_name, 
andler; 
! 
Macro SD_ for string descriptors and the strings 
MACRO 
sd Cstring] = BIND ZNAME('sd_', string) =$descriptor (string)%; 
sd ('SLINE', "FILE_NAME’, ‘LIST’, "MDL", ‘OBJECT’, 'P1°, "SDL", ‘SYMBOLS’, ‘TEXT'); 
i) 
OWN storage 


PMIMMNNMNININN 2 2 SS Oe 


LITERAL 
buffer_size = 512; 


° 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 OWN 
: input_exname: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Length of record buffer 


WAG 


e Input expanded file name buffer 
VECTOR Cnam$c_maxrss,BYTE], 
input_rsname: 
VECTOR Cnam$c_maxrss,BYTE), 
input_nam: $NAM 


Input result file name buffer 


File name block 
Result string buffer 


input_rsname, 
nam$c_maxrss, 
ESA = input_exname 

ESS = nam$c_maxrss), 
input_xabdat: 


SXABDAT(), 


vuv0v 


RSS 


nnania 


Expanded string buffer 


Date/time XAB for input file 


itettos gangnes 
VECTOR Cnam$c_maxrss,BYTE), ! Expanded file name buffer 
: Related name buffer. 


itetres relname: 
VECTOR Cnam$c_maxrss, BYTE), 


ral 


Danan SELLS EWI 


84 

85 
» ¥] Listing_rel_nam: ! Name block for related input file. 

RSA = Listing_relname), 

9 ison tep rene: 

90 VECTOR Cnam$c_maxrss,BYTE), ! Result file name buffer 
P 0391 Listing_nam: S$NAMT 
P 3 ESA = Listing_exname, ! Expanded string buffer 
P 039 ESS = nam$c_maxrss, 3 
P 0394 RSA = Listing_rsname, ! Result string buffer 
P 0395 RSS = nant AOxrss. 

96 RLF = Listing_rel_nam), ! Related NAM block 


SSS Sa te 


SRR 
oo 


ne 
CIO OO0 NOU PUY OO NAME UI AOL IR ROI 


vuvvUYU 
polo lola] 
= 


vuvwvv 
++ SoOooooooooo°ooo oo +3 


IN AIWIWAROROPORORonOPononony 2 2 OOOO 


ee ee ee ee eee S| 
a 


PDS et si a a ed a ed = nd od td ot 


SBIEARENVLSSSLEAREANS LS SSSA AVAS SSNS ARAN A SSSLSGFELTE= 


~~ 

oO 

&* 
Sek ee ee teh nh oh eh ah ad 
WNC COnNOu 


vuvv0U 
SPPPREERER 
Fy ot te > 33554 
= 


aS 
aS 
w 
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mdl_exname: 

VECTOR Cnam$c_maxrss,BYTE), 
mdl_relname: 

VECTOR Cnam$c_maxrss, BYTE], 
mdl_rel_nam: 


NAM ( 
RSA = mdl_relname), 
mdl_rsname: 
VECTOR Crnam$c_maxrss,BYTE], 
mdl_nam: SNAM( 
ESA = mdl_exname, 
= namSc_maxrss, 
RSA = mdl_rsname, 
RSS = namSc_maxrss, 
RLF = mdl_rel_nam), 


object_exname: 
VECTOR Cnam$c_maxrss,BYTE), 
object_relname: 
VECTOR Cnam$c_maxrss, BYTE), 
object_rel_nam: 
NAM ( 


RSA = object_relname), 


object_rsname: 
VECTOR Cnam$c_maxrss,BYTE], 
NAM ( 


object_nam: $ 
ESA = object_exname, 
ESS = nam$c_maxrss, 
RSA = object_rsname, 
RSS = nam$c_maxrss, 
RLF = object_rel_nam), 


record_buffer: 
VECTOR Cbhuffer_size, BYTE), 


sdl_exname: 

VECTOR Cnam$c_maxrss BYTE), 
sdl_relname: 

VECTOR Cnam$c_maxrss, BYTE], 
sdl_rel_nam: 


( 
RSA = sdl_relname), 


sdl_rsname: 
VECTOR Cnam$c_maxrss,BYTE), 
sdl_nam: SNAM( 
ESA = sdl_exname, 
= nam$c_maxrss, 
sdl_rsname, 
nam$c_maxrss, 
sdl_rel_nam); 


P 

nw 

a) 
un 


RLF = 


AL 
olf floes 
INITIAL(O), 


command_line_desc: 


: BITVECTORC32) ! 
! Initially none present 


4 
1 


15 
=Sep-1984 02:02:03  VAX=11 BLiss-3 
mae ra a rt tS 


cN 
= 
mn 


IL. SRCIMAIN.B32; 


Expanded file name buffer 
Related name buffer. 


Name block for related input file. 


Result flie name buffer 

Expanded string buffer 

Result string buffer 

Related NAM block 

Ratated’ name‘ wottere 

Name block for related input file. 


Result file name buffer 
Expanded string buffer 
Result string buffer 
Related NAM block 


Input record buffer 
Expanded file name buffer 


Related name buffer. 
Name block for related input file. 


Result file name buffer 
Expanded string buffer 
Result string buffer 
Related NAM block 


Qualifier presence bitmap 


Descriptor for entire command Line. 


é 


15 
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BLOCK Cdsc$k_s_tin, ByTED,, 
PRESET ( Chdscéy. ~length) 
baclass = “aec$k _class_d, 
Ht ie dtyp = Me ta dtype_t, 
dsc$a_po {Pter] = 


file _queve_hdr: ; Header for queue of input file names. 
USCKcS FIELD (info.g que 


PRESET (Lqueue_flink a hdr, Cqueuve_blink] = file_quewe_hdr), 


MMTPTeronrrnn — 

WN OOONOULS WN -OO0@ 
PAAR AMNYIVIWA 

WR OOONOUS 


> 


weeenees ep desc ! Descriptor of /FILE value 
¢ ck s -bin. BYTE] 
PRESET ¢ dscab-ct Length) = 


sc$b_ — = dsc$k _class_d, 


POPOPOPIPIPUPININPIPINIPIPININIPYNONPPPyNonufyef~ononyd 


5 1 

$ 1 

; 1 

: 1 

: 1 

5 1 

5 1 

5 1 

3 1 

3 1 

3 1 

; 65 1 

3 66 1 

; 67 1 

3 0468 1 dsc$b_ “type = dscSk. “dtype_ % 

; 84 ’ dsc$a_pointer] = 

3 5 P 0471 1 input_fab: SFAB( ! Input file FAB 

3 P Bor6 1 DNA = UPLIT('.MSG'), ! Default file name 

3 37 P 047 1 DNS = 4, 

; 238 P 0474 1 NAM = input_ nam, ! NAM bloc 

s 39 0475 1 XAB = input_xabdat), ! XABDAT Sock 

; 240 & pers 1 input_rab: $RAB( ! Input file RAB 

3 41 P 047 1 FAB = input_fab 

; rX P 0478 1 UBF = record_buffer, ! Record buffer 

: 24 0479 1 USZ = buffer_size), 

3; 246 0480 1 

3; 245 P 0481 1 Listing_fab: SFAB( ' Listing file FAB 

; 246 e Bees 1 DNA = UPLIT('.LIS'), ' Default file name 

: 247 P 0485 1 DNS = 

3 48 P 0484 1 FOP = OFP, 

: 249 P 0485 1 NAM = Listing_nam, ! Address of NAM block 

; 250 P 0486 1 RAT = ' Carriage return format 
3 6) 0487 1 RFM = VAR), ! Variable Length records 
: $26 P 0488 1 Listing_rab: $RAB( ! Listing file RAB 

3; @ P 0489 1 FAB = Listing_fab, 

3 $2¢ oh : ROP = WBH), ! Overlap 1/0 if possible 
5 256 P Beas 1 mdl_fab: SF AB( ' MOL file FAB 

3 57 P 0493 1 DNA = UPLIT('.MDL"), ! Default file name 

; 258 P 0494 1 DNS = 4 

; 259 P0495 1 FOP = OFP, 

; 260 P rhe] 1 NAM = mdl_nam, ' Address of NAM block 

; 261 P 0497 1 RAT = CR ' Carriage return format 
3 o¢ 498 1 RFM = VAR), ! Variable length records 
:; 26 P 0499 1 mdl_rab: SRAB( ! MDL file RAB 

; 264 P 0500 1 FAB = mdl_fab, . , 

3; 265 33t ! ROP = WBH), ! Overlap 1/0 if possible 
3 e 308 : module_name: VECTOR (2), ! Descriptor of module name 
; 269 P 258 1 object_fab: S$FAB( ! Object module file FAB 
4 70 P 206 1 DNA = UPLIT(".OBJ'), 

; 271 P 05 1 DNS = 4 

3 7 P 05 1 FOP = OFP, 

, a 5 1 ’ NAM = object_nam), 

3; «274 P0510 1 object_rab: $RAB( ! Object module RAB 


worst_error: INITIAL(ss$_normal) Worst error encountered 
BBLOCK(4]; 


oO 
co 


External routines 
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18 19 } FAB = object_fab), 
7 P0515 1 Output_fab: SFAB( ' Output file FAB 
78 P0814 1 . FNM=" SYSSOUTPUT:', | Tile pene 
7 P 0515 1 RAT = CR ' Carriage return format 
1 1 RFM = VAR), ' Variable Length records 
1 PQO517 1 output_rab: SRAB( ! Output file RAB 
¢ 18 1 FAB = output_fab), 
84 & 0 sdl_fab: SF AB( ' SOL file FAB 
85 ; : 1 cae s PLT? ! Default file name 
aS P 05 : FOP = OFP, 
88 P 0524 NAM = sdl_nam, ! Address of name block 
89 P 0525 RAT = CR ! care ape return format 
90 05 § RFM = VAR), ! Variable Length records 
91 P 05 sdl_rab: SRAB( ' SDL file RAB 
4 P 0528 FAB = sdl_fab, 
% 529 ROP = WBH), ! Overlap 1/0 if possible 
94 530 
95 
39 


av=S8 


EXTERNAL ROUTINE 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

: 

1 parse file, Parse input file 
1 output_object, ! Output object module 
1 end_listing, ' Cleanup Listing file 
! error_summar ! 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Y. ! Give error summary 
Lib$fTle_scan: ADDRESSING_MODE (GENERAL), } sarap waigeare sequence 
or a 


es. 
Search wildcard sequence 

for next file. 

orrenrs memory deallocation. 
G 


LibSfind_file: ADDRESSING_MODE (GENERAL), 


Lib$Sfree_vm: ADDRESSING_MODE (GENERAL), 
LibSget_vm: ADDRESSING_MODE (GENERAL), 
cli$get_value: ADDRESSING_MODE (GENERAL), 
cli$present: ADDRESSING_MODE (GENERAL) ; 


SRUSAR 


ROPOPIMPOPOPONPOPONUNYD 2 


locate dynamic memory. 
et command Line values. 
Test command Line for 
presence of qualifiers. 


' 
: External Literals (for command line interpreter codes): 


EXTERNAL LITERAL 


Be Se Se Se Se Ge Ge Ge Se Se Ge Fe SF Ss Ge Ge Se Se Se Se Fe Se Se Se Se Se Ge Se Ge Ge Ge Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Sees Se Se Se Ses ae 
SOOOCOOOCOOCOOGOOOCOCOOCOOOOO SOOO OOOOOoOOoOOOO 


DONO VUES WN O OONOUS WN Oo 


AAAAN WN AAANAAIAIA AANA 


ROUTINE null: NOVALUE = ; 
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git2 


«TITLE MAIN MESSAGE FILE COMPILER 
-IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
0000 P.AAB ASCII SLINE\ 
0005 “Bt. KB ; 
one P.AAA ONG 
00 f DDRESS P.AAB 
0010 P.AAD: SCcIl \FILE NAME \ 
6019 BL KB 3 
449 P.AAC LON G 9 
»ADDRESS P.AAD 
0024 P.AAF eASCII \LIST\ 
0028 P.AAE: .LON 
00 -ADDRESS P.AAF 
0030 P.AAH eASCII \MDL\ 
Bn8 -BLKB 1 
0034 P.AAG: .LONG 3 
00038 ADDRESS P.AAH 
5 P.AAJ: .ASCII \OBJECT\ 
0004 -BLKB 2 
00044 P.AAI eLONG 6 
00048 “ADDRESS P.AAJ 
Q004C P.AAL: .ASCII \Pi\ 
Bones -BLKB 
0050 P.AAK -LONG 
00054 -ADDRESS P.AAL 
00058 P.AAN eASCII \SDL\ 
Bebe -BLKB 1 
O005C P.AAM: .LONG 3 
00060 -ADDRESS P.AAN 
00064 P.AAP eASCII \SYMBOLS\ 
0068 -BLKB 1 
006C P.AAO LONG / 
0070 eADDRESS P.AAP 
si tl P.AAR: “ASCII \TEXT\ 
0078 P.AAQ: .LONG 4 
0007C -ADDRESS P.AAR 
0080 P.AAS: “ASCII \.MSG\ 
0084 P.AAT: ASCII \.LIS\ 
it P.AAU: .ASCII \.MDL\ 
QO8C P.AAV: ASCII \.OBJ\ 
ORe8 P.AAW: .ASCII \SYSSOUTPUT: \ 
98 -BLKB 1 
Q009C P.AAX ASCII \.SDL\ 
-PSECT SOWNS,NOEXE,2 
00000 INPUT_EXNAME : 
-BLKB 255 
OOOFF -—BLKB 1 
00100 INPUT_RSNAME : 
-BLKB 255 
sa BLK 1 
0200 INPUT _NAM: 
BYTE 2 
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.BLKB 
MDL _RELNAME : 
.BLKB 
-BLKB 
MDL_REL_NAM: 
-BYT 
-BYT 
“BYTE 
BYTE 


ADDRESS 


“LONG 
MDL_RSNAME : 
-BLKB 
“BLKB 
MDL_NAM: .BYTE 
“BYTE 
“BYTE 


-BYTE 
-BYTE 
-BYT 


-BYTE 
- ADDRESS 
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OBJECT_EXNAPE : 
-BLIKB 
“BLK 
OBJECT_RELNAME : 
-BI.KB 
“BLKB 
OBJECT_RE’._NAM: 
BYTE 
‘BYTE 
“BYTE 


-BYTE 
- ADDRESS 
«BYTE 


“LONG 
OBJECT_RSNAME : 
~BLKB 


“BLKB 
OBJECT_NAM: 
.BYTE 
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075 yo 
44) -BYT -1 
D7 oad 0 
078 «ADDRESS OBJECT_EXNAME 
D7 «ADDRESS OBJECT_REL_NAM 
D WORD 
) ORD 
096 «WORD 
d9 »LONG 
DA «LONG 
DAS BYTE 
DAS BYTE 
DA BYTE 
ODA BYTE 0 
ODA .BYTE 0 
ODA -BYTE 
ODAA -BYTE C2] 
ODA ~ LONG 
008 LONG 
0084 ~LONG 0 
0088 -LONG 0 
ODBC «LONG 0 
00CO «LONG 0 
ODC4 -LONG O[2] 
OODCC RECORD_BUFFER: $12 
OOFCC SDL_EXNAME : 
-BLKB 255 
g19ce -BLKB 1 
10CC SDL_RELNAME : 
-BLKB 255 
011CB -BLKB 1 
O11CC SDL_REL_NAM: 
-BYTE 2 
011CD -—BYTE 96 
O11CE ye 0 
11CF -BYTE 0 
1100 eee SDL_RELNAME 
1104 BYTE 0 
1105 -BYT 0 
1106 -BYTE 
1107 -BYTE 
1108 . LONG 
11D LONG 
11E .WORD 
11F WORD 
11F6 . WORD 
11FC ~LONG 
1 ~LONG 
1 -BYTE 
1205 -BYTE 
1 BYTE 
1 BYTE 
1 3 BYTE 
1 8 -BYTE 
120A -BYTE (2) 


Be Se Be Se Be Be Se Be Be Be Be Be Be Se Se Se Se Se Ge Se Se Ge Me Be Be 


v 8 


6 


1 
b-Sen-1986 02:02:05 vAKelt Bliss 


MAIN MESSAGE FILE COMPILER $s- 
8% STE 


Table of Contents, Variables, Externals, etc. 


2 


90000008 


32 
R 


V4.0=742 Page 21 
CMSGP IL SRCIMAIN.B32:1°"" (3) 


. 
a 
(= 
2 = 
AQAQAGG 
Tere Terererey 


st 
SDL_RSNAME : 
-BLKB 255 


-BLKB 
SDL_NAM: .BYTE § 
-BYTE 6 
BYTE <1 


“BYTE 0 
ADDRESS SDL_RSNAME 
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00000000 00000 CLILFLAGS: 5 : 
0000 00004 COMMAND_LINE_DESC:: 
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, 0 
2 8 0006 BYTE 14, 2 ; 
98 309 000 «LONG 0 
00000000' 0000" 0000C FILE_QUEUE_HDR:: 
ADDRESS FILE_QUEUVE_HDR, FILE_QUEUE_HDR : 


0000 00014 FILENAME. DESC 
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LONG 
ADDRESS 
«LONG 
-BYTE 
BYTE 
WORD 
- ADDRESS 


SDL_FAB:: 
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16 
MESSAGE FILE COMPILER 1b-Se 1984 02:02:03 VAX-11 Bliss-32 V4.0-742 P 
Table of Contents, Variables, Externals, etc. 12-88-18 95:08:03 DISKSVMSMAS TER: CMSGFIL. SRCIMAIN.B32:1° >" (3 
~ WORD : 
000080 sf LONG : 
0 74 WORD : 
6 -BYTE é 
037 BYTE F 
88 0378 WORD : 
00 O37A WORD : 
0000000 0037C LONG 8 : 
9444 0380 LONG g 
00 4 0384 LONG : 
0000000 0388 LONG 5 
88 8 gc BYTE 3 
D BYTE : 
0 0038E -BYTE 0 : 
0 O38F -BYTE 8 : 
808008 0 00390 «LONG 5 
0000000' BO RoR -ADDRESS SDL_FAB : 
00000000 00398 ‘ 0 F 
00000001 0039C WORST_ERROR:: 
~ LONG 1 : 
SD_$LINE= P.AAA 
SD-FILE_NAME= P.AAC 
SD-LIST= P.AAE 
SD-MDL= P.AAG 
SD_OBJECT= P.AAI 
SD_P1= P.AAK 
SD-SDL= P.AAM 
SD-SYMBOLS= P.AAO 
SD_TEXT= P.AAQ 
-EXTRN PARSE_FILE, OUTPUT_OBJECT 
-EXTRN END_LISTING, ERROR” SUMMARY 
EXTRN LIBSFILE_SCAN, LIBSFIND_FILE 
EXTRN LIBSFREE-VM, LIBS$G 
EXTRN CLISGET VALUE, CLISPRESENT 
TEXTRN CLI$_ABSENT, CLI$_DEFAULTED 
EXTRN CLIS_LOCNEG, CLIS—LOCPRES 
EXTRN CLIS-NEGATED, CLIS_PRESENT 
-PSECT $CODE$,NOWRT,2 
0000 00000 NULL: .WORD Save nothing ; 0565. 
04 00002 RET 3 


; Routine Size: 3 bytes, Routine Base: $CODE$ + 0000 


M16 
MAIN MESSAGE FILE COMPILER 16-Sep-1984 02:02:03 VAX=11 Bliss-32 V4.0-742 Page 29 
START Rout ine 1a-8ep-19 4 95:08:92 DISKSVMSMASTER: CMSGF IL.SRCIMAIN.B32;1 * (3 
1 0266 1 ZSBTTL ‘START Routine’ 
§ 67 1 ROUTINE start = 
28 1 
4 6 1 {me 
5 Beas 1! 
6 571 1 This is the main routine for the message compiier. This 
7 b228 1! program accepts the message definition language and generetes 
$3 p27 1! object modules which may be Linked into any image. S$GETMSG 
i3 Behe : will locate the message definitions in the message sections. 
41 8278 1 ! Inputs: 
rk: bef 1! 
4 78 1! None 
ste 0579 1! 
45 0580 1 ! Outputs: 
a9 0581 1! 
34 F404 1} Object module specified by /OBJECT 
$05 0585 1! ition file specified J /LIST 
49 0584 1! MOL file specified by /MDL 
350 0585 1! SDL file specified by /SOL 
351 0586 1! 
326 0587 1 !-=- 
35 0588 1 
354 0589 § BEGIN 
355 0590 
$28 0591 § BUILTIN 
57 B36 P ! Reference FP register 
558 0593 2 REMQUE; 
359 0594 § 
360 0595 
361 0596 2 LOCAL 
36 0597 2 status; 
36 0598 2 
364 0599 § ! 
365 0600 : Set signal handler 
366 0601 ! 
367 060 
368 060 -fp = handler; ! Set handler address 
9 0604 
0605 
0606 
0607 : ; 
0608 : Parse the command Line 
ay 
Ose get_quals(); ! Get command qualifiers and parameters. 
061 ! 
gets Open the output file for error reporting only 
1 
Osi status = SCREATE (FAB = output_fab); ' Always create output file 
0618 If NOT .status THEN rms_error Temsg(openout) ,output_fab); 
bee status = SCONNECT (RAB = output_rab); 
Dest IF NOT .status THEN rms_error (emsg(openout) ,output_fab,output_rab); 
2 1 
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FILE COMPILE 
tine 


sticky.¢ 


L 
END; 
END; 


AND 


If NOT .wors 
THEN 


THEN 
BEGIN 
end_list 
IF NOT . 
THEN 
rms 
END; 
AND .mdl_ 


HEN 
BEGIN 


input_ fab 
LibstTle ~Scan (input. ta 


context: INITIAL (0), 
o: REF BBLOCK 


FIELD (info rt flds); 


icky_context); 


IF .cli_flags Cqual_ubject] 


-worst_error 


HEN 
output_object(); 


t_error 


error_summary(output_rab); 


status = SCLOSE (FAB = output_fab); 
IF NOT .status THEN rms_error “Cemsg(closedel), output_fab); 


IF .cli flags Cqual_Llisting] 
AND” .Listing_fab Cfab$w_ifi] NEQ 0 / and it was opened 


in hatin ra 


ab) 
status = SCLOSE (F = Listing. 


status 


error (emsg(closedel), 


IF .cli -flags Cqual_m 


fab fabs. 4443 NEQ 0 


1b-sep-19 4 t 98: 9¢: 9 


14-Sep-1984 


' Process each file in the input List 


! Argument for Lib$file_ 
' Adoress for input file 


! block. 


UNTIL 1 file _queuve_hdrCqueue_flink], file_info) DO 


nea! be bee + fna] = .file_info(name_addrj; 
fab$b-fns2 = filed infoCname “Lengthi; 


' Search alt wildcard f 
! calling here if file 
: cay tine here if erro 
: aintain sticky-cont 


ib$free _ymGHREF (queue. element size), file_info); 


i Generate the object module file 


! If /OBJECT specified, 
i and no errors so far, 


! Output object module 


: Close the output and Listing files 


' If error detcted, 
! Give summary 


' Close output file 


! If /LIST specified, 


: Cleanup bist ing file 
fab); ' Close the Lis 


Listing_fab); 


! If /MDL specified, 
' and it was opened 


VAX=11 BLi is=32_ V4.0-742 
DISKSVMSMé sTER: CMSGFIL.SRCIMAIN.B32; 479 


scan. 
info 


iles 

is found 
r occurs 
ext. 


ting file 


MAI! 
VO4 


eCoereorororeoOoe eee eee eee a —a 


1 
MAIN MESSAGE FILE COMPILER 1b-Sep-1986 02:02:03 VAKe11 Bliss=32 v4.0-742 1 
04-000 START Rout 1eneeb-18he FSi2892 | Peek thle tea chsee iT, Secamain.e3220 8 cay | 


<z 
o,r 
Se 


is 445 680 status = SCLOSE (FAB = mdl_fab); ! Close the MDL file : 
13 rr | 681 IF NOT .status ; 
i; 644 6 ¢ THEN 3 
; 448 6 rms_error (emsg(closedel), mdl_fab); : 
; 449 0684 END; 3 
3 2a? bese 5 IF cli. flags Cauat sdl] ‘If /$D ified, 
; ags uai_s ; L spec e a 
: 126 bea? we (9 OF ab ttabsu. ifi] NEQ 0 ' and it a. opened . 
; 45 0688 ; 
: 454 0689 NBEGIN 3 
> 455 0690 status = SCLOSE (FAB = sdl_fab); ' Close the SDL file : 
46 0691 IF NOT .status 
; 457 069 THEN 3 
; 458 069 rms_error (emsg(closedel), sdl_fab); : 
; 459 0694 2 END; 3 
3 60 0695 2 3 
; 461 0696 2 RETURN .worst_error; ' Return worst error encountered ; 
; 46 0697 2 F 
|; 46 0698 1 END; 3 
: 

eEXTRN SYSSCREATE, SYSSCONNECT | P 

-EXTRN SYSS$CLOSE | : 

003C 00000 START: .WORD sexe. Re. sae R4,R5 : 0567) : 

55 0000V CF 9E 00002 MOVAB RMS_E R5 3 ; 

54 00000000G 00 9€E 00007 MOVAB Sy SStLOSE R4 : 3 

53 0000" CF 9E p000F MOVAB OUTPUT FAB, R3 3 ; 
5E 0c C2 0001 SUBL2 # S 2 } 3 

6D 0000v CF 9E 00016 MOVAB HANDLER, (FP) : 0603 ’ 

0000v CF 99 FB 00018 CALLS #0, GET_QUALS ; 0611) : 

5 DD 00020 PUSHL R ; 0617 | ; 

000000006 00 01 FB 00022 CALLS #1, SYSSCOEATE § 3 

52 50 0 00029 MOVL RO, STAT | 

08 26 E8 0002C BLBS STATUS, 13 ; 0618 3 

53 DD 000eF PUSHL 3 : | : 

009710A4 8F DD 00031 PUSHL #99 00196 5 $ 

65 O¢ FB 00037 CALLS #2, RMS_ERROR é | P 

50 AS 9F OO03A 18 PUSHAB oufPU T RAB > 0619 : 

000000006 00 01 FB 0003D CALLS , SYSSCONNECT : | : 

52 50 DO 00044 MOVL RO, STATUS : | ; 

OE 52 €8 00047 BLBS STATUS, 2$ ; 0620. 3 

50 AS OF 90044 PUSHAB OUTPUT _RAB : | : 

5 DD 0004D PUSHL R : 3 

009710A4 8F DD OO004F PUSHL #9900196 ; 3 

65 03 FB 00055 CALLS #3, RMS_ERROR : 3 

04 AE D4 00058 a8: CLRL —- STECKY_CONTEXT : 0626 | : 
i 08 AE FD98 D OF 00058 3$: REMQUE @F ILE_GUEVE_ HDR, FILE_INFO ; 0633 | : 
| 39 1D 00061 BVS 4$ 3 $ 
50 08 AE 00 0063 MOVL Fite INFO, RO ; 0635. 3 

FDD4 ce 0c AO 00 0006 MOVL 12(R0), INPUT FAB+44 ; P 
FDoDC «=6—C 08 ad 90 p80 MOVB 8(RO), INPUT _FAB+52 ; 0636 5 

04 AE 9F it PUSHAB STICKY_CONTE RT 3; 0637. 3 

0000v CF 9F 00076 PUSHAB SEARCH-ERR ; ; 

O000V CF 9F OQOO7A PUSHAB DO FILE ; é 

FDA8 C3 OF OOO7E PUSHAB INPUT _FAB 5 : 


ps ee ee 


' 


| MAIN MESSAGE FILE COMPILER 1 
/ ¥04-000 START Routine 1- 
| 00000000G 00 04 FB 000 : 
08 A 9F 000 
04 AE 10 00 000 
04 ss oF 94 
000000006 00 02 FB 9 
BF 11 QO09A 
OA FO8C § ¢3 01 €1 BOR 
OA 0128 ¢3 £9 OOOA 
0000G CF 0 Fe 44 
08 0198 C3 €E8 QOOAC 
0 <A3 9F 00081 
0000G CF 9] FB iit 
3 DD 00089 
64 01 FB 00088 
52 50 00 OOOBE 
08 26 E8 000C1 
53 DD 000C4 
0097121A 8F DD 000C6 
65 0 FB OOOCC 
29 FDO8C C3 €E9 QOOCF 
FE3SE C3 BS 00004 
23 13 00008 
FE8C C3 9F QOODA 
0000G CF 01 FB ait 
FE3C C3 OF QOOE 
64 01 FB 000E7 
| 52 50 DO QOOEA 
0D 26 E8 OOO0ED 
FE3C C3 9F OOOFO 
0097121A 8F DD OOOF4S 
65 02 FB OOOFA 
20 FD&C C3 03 €1 OOOFD 
FED2 C3 BS 00103 
1A 13 00107 
FEDO C3 9F 00109 
01 FB 00100 
52 50 DO 00110 
D 26 E8 00113 
FEDO C3 9F 00116 
0097121A 8F DD OO11A 
65 02 FB 00120 
20 Fo8c 3863 04 €1 00123 
0096 «(C3 8 00129 
1A 1 bat D 
0094 C3 OF O012F 
6 01 FB 00133 
35 35 PB 00139 
0096 23 SF bolse 
0C97121A 8F DD 00140 
65 06 FB 00146 
50 0128 C3 D0 00149 
04 0014E 


; Routine Size: 335 bytes, 


c- 
| 


Routine Base: 


$CODES + 0003 


9$: 


10$: 


11$: 


984 02:02:03  VAK=11 Bliss-32 v4.0-742 Page 32 
984 5: it 9 DISKSVMSMASTER: CMSGFIL.SRCIMAIN.B32; 1 . (35 
CALLS #4, LIBSFILE_SCAN ; 
PUSHAB FILE_INFO + 0641 
MOVL #16, ~4(SP) : 
PUSHAB 4(SP) : 
CALLS #2, LIBSFREE_VM : 

BRB : 0633 
BBC cu nf bAss 5$ > 0649 
BLBC ups! és > 0650 
CALLS bopene RoByeCT + 0652 

LBS voRss ERROR, 7$ : 0658 
PUSHAB ou PU ure + 0660 
CALLS ‘ ERROR’ SUMMARY F 
PUSHL 3; 0662 
CALLS #1, SYS$CLOSE : 

MOVL RO, STATUS : 
BLBS STATUS, 8$ > 0663 
PUSHL $ 
PUSHL #9900570 : 
CALLS * RMS 2ERROR : 
BLBC =. CLI_F + 0665. 
Ist tts STiN ae Phase + 0666 
PUSHAB LISTING_RAB > 0669 | 
CALLS #1, ENDILISTING : 
PUSHAB LISTING FAB + 0670 
CALLS #1, SYSSCLOSE : 
MOVL 0; STATUS : 

LBS STATUS, 9$ + 0671 
PUSHAB LISTING_FAB > 0673 
PUSHL 00570 : 
CALLS me. RMS_ERROR : 

BBC CLI-FLAGS, 10$ + 0676 
TSTW MOF FABF2 ; 0677 
BEQL ; 
PUSHAB MDL_FAB + 0680 
CALLS We “SYSSCLOSE ; 
MOVL 0; STAT : 

LBS «STATUS Os : 0681 
PUSHAB MDL_FAB : 0683 
PUSHL #9900 3 
CALLS #2, RMS_ERROR : 

BBC #4. CLITFLAGS, 11$ > 0686 
TSTW  SDL_FAB2 : 0687 | 
BEQL 11§ ; 
PUSHAB SDL_FAB + 0690 
CALLS #1, ~SYSSCLOSE : 

MOVL RO, STATUS F 

BLBS STATUS, 11$ > 0691 
PUSHAB SDL_FAB : 0693 
PUSHL #9900570 ; 
CALLS #2, RMS ERROR ; 

MOVL § WORST_ERROR, RO > 0696 
RET : 0698 


MAI 


el 
oO 
> 


| 
| 


SSeeNcSs 


o 
~ 


sss 
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MESSAGE FILE COMPILER 15. Ht tS 95:00:07 VAX-11 Bliss-32 V4.0-742 Page 
GET_QUALS = Parse command Line. 14-Sep-1984 12:46:14 DISKSVMSMASTER: CMSGFIL.SRCJMAIN.B32;1 ( 


33) 
4) 

XSBTTL "GET_QUALS = Parse command Line.’ | 
| 


ROUTINE get_quals : NOVALUE = 


Functionai description 


indicating which qualifiers are present in the comand Line and to get 
the values for qualifiers which have them. It also gets the input 
filenames and puts them into a queue and determines related filenames 
for output files. 


folelelelelololo) 


ABMS WN $$ S OONAUES WN OOONOUSWN OO ONOU EWN 


| 
This routine uses cli$present and cli$get_value to set a flag word 

| 

| 


Input parameters 
None 
Implicit inputs 


The command Line and the associated rms data structures for specified 
files are implicit inputs. 


Jutput parameters 
cli_flags = Bitmap indicating which qualifiers are present 
Implicit outputs 


A queue of file input file information and filling in of RMS NAM blocks 
for ouput files. 


' AUTHOR: Tim Halvorsen, Nov 1979 
i Modified by: 
V03-001 GJAULC49 Greg Awdziewicz 8-Sep-1983 
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! 
i] 
' 
' 
' 
7 ! Change £9 new CLI interface. 
8 : Merge into MAIN module. 
9 : change qualifiers (/LISTING => /LIST, /FILE -> /FILE_NAME) for 
? : consistency with other utilities and with documentation. 
§ ; v02-002 Jswro0d2 Jim Teague 06-NOV-1981 
? Added /SDL capability 
5 : v02-001 PCG0001 Peter George 29-Dec-1980 
28 Add /MDL functionality 
48 1 i-- 
49 
50 BEGIN 
2) antag | 
38 *~, t fl ! First t t ial treatment | 
rst_parm_flag: ! First parameter gets special treatment. 
755 INITIAL (true), ‘ tnt in | 


| 
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! Dynamic descriptor for SREB 
s pine BYTE) ! to use to return a vaiue. 


$b- “atypel = = Gaett- dtype_t, 
$a_pointer) ) | 
! Dynamic descriptor for Lib$find_file 
s_bln, BYTE) ' to use to return the file spec. 


we -length) = 


= C$k_class_d, 
b_ = dsc$k_dtype_t, 
a_pointer] = 0), 
A 
s 


| 

context: C (0), ' Context pointer for Lib$find_file. 
' 

} 

| 


default: 
BLOCK 
PRESET 


i Descriptor for Lib$find_file” 
bln, BYTE] i to use for defaults. 
Sb-class] = dsc$k_class_s 
c$b_dtype] = dsc$k kadtypent “tS, 
error status value. 


THtlgs: BITVECTOR [32] i KSEE file user flags: 
RESET (C1) true), i “multiple input file s ickyness. 


status: INITIAL (true); 


ox AO OOO Ke AaAoax 


K Cd 
( 


OOOO COCOCOCOOCOCOCOCOCOCOCOCOCOCOO os 


: Set the default descriptor from the input file fab: 

default(dsc$w length) = .input_fabCfab$b_dns); 

default(dsc$a_pointer] = .input_fablfab$l_dnaJ; 

: Get a copy of the whole command Line so that we can echo it in the Listing: 

cli$get_ value (sd_S$LINE, command_line_desc); | 

| 

i Check first for the nonpositional global qualifiers (/File_name, /Symbols, 

i and /Text). 

Check if /FILE_NAME qualifier is present and get filename to point to: | 
Li$present ‘(sd_FILE_NAME) | 
GIN | 

flagsCquat_file] = 
| 


cli 
cui8 et_value Tsd_FILE NAME: filename_desc); 
F t 1 lenane _descldsc$u_length] GTRU fentc_s _maxrss 


is NSIGNAL (emsg(syntax), 1, filename_desc); | 
, { 
! Check if /SYMBOLS qualifier is present: 
if cli$present (sd_SYMBOLS) 


a 
5 
ki 
: 
5 
| 
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THEN 
cli_flagsCqual_symbols] = true; 
Check if /TEXT qualifier is present: 
if cliSpresent (sd_TEXT) 
cli_flagsCqual_text] = true; 


i Check next for the positional qualifiers (/List 
as qualifiers on the command rather than on a file specification 


Check if /LIST qualifier is present and get filename for Listing output: 


IF ai Peer anens (sd_LIST) THEN 
BEGIN 


L 
: cli. flagsCquat. listing? = true; 

Z If cli$get.value (sd_LIST, value) THEN 
4 Listing_fab Cfab$b_fns] = .valueCdsc$w_length]; 
4 Listing. fab fab$l_fna] = .value(dsc$a_pointerJ; 
4 value(dsc$w_length] = 0; 

4 value(dsc$a_pointer] = 6; 

3 END; 

§ END; 

2 

2 

| 

4 

4 

4 

4 

4 

4 


Check if /MDL qualifier is present and get filename for MDL output: 


if eh eeconens (sd_MDL) THEN 
BEGIN 


cli_flagsCqual_MDLJ] = true; 
IF cli$get_value (sd_MDL, value) THEN 


BEG 
MDL_ fab bfebsb. ins = .valueCdsc$w_length]; 
MDL_fab [fab$l_fna] = .valueldsc$a_pointerJ; 
valueCdsc$w_length] = 0: 
valueldsc$a_pointer) = 0; 
END; 

END; 


: Check if /OBJECT qualifier is present and get filename for object output: 


if cLiSpresent (sd_OBJECT) THEN 
BEGIN 


cit. ftegsCquat object) = true; 
IF cli$get_value (sd_OBJECT, value) THEN 


BE 
object_fab Cfab$b_fns] = .valuel[dsc$w_length]; 


/Mdl, /Object, ard /Sdl) 
! to see if any are used in a global sense (that is, to see if fhey were used 
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LibSget_vm(ZREF (queue_element_size), file_info); 
value(dsc$w_length) = 

valueldsc$a_pointer] = 0; d 
INSQUE (.file_info, .file_queue_hdr(Cqueue_blink]); 


CHSMOVE™ (dsc$c_s_bin yalue, Tile_infolname_desc]); 


H 1 | 
MESSAGE FILE COMPILER 16-Sep-1984 96:08:03 VAX-11 Bliss-32 V4.0-742 Page 36, 
GET_QUALS = Parse command Line. 14-Sep-1984 12:46:14  DISKSVMSMASTER:CMSGFIL.SRCIJMAIN.B3c;1 (4) v04 
0870 4 object_fab Cfab$l_fna] = .valueldsc$a_pointerd; | . 
9 71 4 value(dsc$w_length] = 0; = 
if 4 value(dsc$a_pointer) = 6; . 
087 5 et 
0874 END; a 
HE baa 
0877 ; Check if /SDL qualifier is present and get filename for SDL output: : | 
0879 2 IF cliSpresent (sd_SDL) THEN : 1 
0880 BEGIN 3 1! 
0881 cli_f gosCqual _SdLJ = true; : 1 
pees IF cli$get_valUe (sd_SDL, value) THEN 3 1 
0883 4 BEGIN 1 
0884 4 SDOL_fab Cfab$b_fns] = -valuefdsc§w. length); : 1 
0885 4 SDL-fab Cfab$l-fnaJ = .valueldsc$a_pointerd; 3 1 
0886 4 value(dsc$w_length] = 0; 20 
0887 4 valueLdsc$a_pointer] = 0; so 
0888 3 D; 2 1 
0889 2 END; s 7 
0890 Fe | 
0891 3 1 
089 '¢ 3h 
0893 2! Finally. we 90 through the input filenames, to establish a queue of : 1 
0894 § ! them for further processing and to check for local use of the : 1 
0895 ! positional qualifiers (/List, /Mdl, /Object, and /Sdl) to establish 3 7 
0896 2! appropriate output file names. | 21 
0897 2! If a positional gee iy! bal is used locally instead of gtobatty we want 3 (1 
0898 2! to use as much of the local context as possible, so we use the :] 
0899 2: resultant filename from Lib$Find file as the related filename for the 2 1 
0900 2! output file. We also clear the OFP bit so that the output file will $s } 
0901 ' be put in the same directory as the input file. 3 Ht 
090 ! However, if the qualifier has a value we want to set the OFP back : 1 
090 ! again, so that if the value specified does not include a device 3 1 
0904 ! and/or a directory we will use the current default device and/or 
0905 2! directory. 
0906 2 !- 
0907 2 
0908 § WHILE cli$get_value(sd_P1, value) AND .status DO | 
0909 BEGIN 
0910 3 LOCAL | 
0911 3 file_info: 
0318 ; REF BBLOCK FIELD (info_queue_flds); | 
914 | 
Bele 3 status = Lib$find_file (value, result, context, default, 0, stv, ffflgs); | 
0917 IF NOT .status THEN ' Failure to find any input file is fatal. 
Bate SIGNAL_STOP (emsg(searchfail), 1, value, .status, .stv 
$920 4 BEGIN 
0921 4 
09 § 4 
83 4 
924 4&4 
0925 4 
0926 4 | 
| 
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ELSE 
cm Listing fab Cfab$b_fns] = 0; 


1 
MESSAGE FILE COMPILER 1b-sep-1984 95:09:03 VAX-11 Bi ieee 32 V4.0-742 37 
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927 4 
$3 8 4 : We use the first file specification to provide the related name for 
83 4 ? any output files which were indicated with global qualifiers: 
0931 4 IF .first_parm_flag THEN 
093¢ 5 “BEGIN 
09 first parm. flag = false; 
83 4 SELECT 1 
Be STU ftegatquel Listing | 
5 of agsCqual_listing]): 
0937 3 BEGIN® : | 
B38 6 Listin _rel _namCnam$b_rsl) resultldacsu. Length]; 
5444 g ee HSMOVE™ (.résultCdsc$w "tengthi, -resultldsc$a _pointer], Listing_relname) ; | 
0941 3 @ cli vflagstaual_ MDLIJ: 
0943 6 tg ei _namCnam$b_rsl] = .resultCdsc$w_leng ghd; 
epee g ENSROVE ( (.resultCdsc$w_length], .resultld dse pointer], MDL_relname); 
4 2 cs ot vflagsCauat object]]: 
0948 6 alas rel_namCnam$b_rsl] = .result(dsc$w_length]; 
$44 g OVE (.resultCdsc$w_length], .result[dsc$a “pointer], object_relname); 
0951 3 c. ct vf tagsCauat SDLJ]: 
0953 6 hy ret _namCnam$b_rsl] = .resultCdsc$w_length]; 
0954 6 CHSMOVE”(.resultCdsc$w_length], .resul€Ldsc$a_pointer], SDL_relname); 
0955 5 END: 
0956 5 TES; 
0957 4 END: 
0958 4 
0959 4 ! Check if /LIST qualifier is present or negated and, if present, get 
Reed ? filename for Listing output: 
0962 4 SELECT ciate (sd_LIST) OF 
0965 4 SET 
0964 4 Ccli$ 
0965 4 eri’ vi tagsi qual Listing] = false; 
0966 4 Ccli$_loc 
0967 5 BEGIN’ 
0968 5 cli {legsla " Bhcied st trues 
0969 5 Listing. fab fab$v_of 
970 : Listi mgt rel gnanlngas A = *Fesultlds $w_length]; : 
971 CHSMOVE” (.résultCdsc$w see -resultLdsc$a_pointer], Listing_relname); 
0972 5 IF cli$get_value (sd_LIST, value) THEN 
0973 6 BEGIN 
974 6 Listing_fabCfab$v_ ofp] = true; 
975 6 Listing fab Cfab$5_fns] = -valuefdsc$w_ Length); 
976 6 Listing. te fab tebsi, fna = .valueldsc$a “pointerd; 
977 6 value(dsc$w_length] 
978 value(dsc$a_ “pointer] = 6; 
4 
4 


TES; 
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9 ‘4 4 

985 4 
Hf ' check if /MDL gt ht tes is present or negated and, if present, get 
0367 filename for MDL output: 4 . 2 ° 
989 SELECT appa (sd_MDL) OF 

990 RET 

393 eer tm L_MDL] = fal 

cli_ rt sCqua alse; 

099 Ccli$_locpr 5 ssi 
0994 BEGIN’ 

0995 cli_fla abfiass qual fk = true: 

0996 MDL_fab v_of re 
0997 MDL_re t-nantnansb rsl oer bengend: 

0998 CHSMOVE™ (.resultldsc$w_ length], .resul€(dsc$a_pointerJ, MDL_relname); 
0999 IF clisget. value (sd_MBL, value) THEN 

100 mB. 

100 MDL-fab Cfab$b_fns] = .valueCdsc$w_length); 

19b2 MDL-fab Cfab$l—-fna) = ,value dsc$a “pointerd; 


vatuetdscsa- length) 

valueLdsc$a_pointer) = 6; 

ELSES. 
‘ MDL_fab Cfab$b_fns] = 0; 


TES; 


heck if /OBJECT qualifier is present or negated and, if present, get 
ilename for object output: 


C 
f 

eh cli$present (sd_OBJECT) OF 
Lis 
l 


! 
' 
! 
SE 
SE 
ante ty FL og) l_object] = fal 
Cc ags(Cqual_objec alse; 
Cc Yo / Locpre agsta 


cli_fla abt tabs soiett? = true; 


fabSv_of false 
object rel_nam(nam$ es rst] = *resultldsc$w length); 
CHSMOVE (.FesultCdscSw length), .result(dsc$a_pointer), object_relname); 
IF oS), et. value (sd_OBJECT, value) THEN 


object_fab(fab$v ofp] = tru 

object_fab fap b$B_fns] = wvaluetdscSw_ length); 
object_fab Cfab$l"fna] = .valueldsc$a “pointer; 
value asedw length] = 0; 

value(dsc$a_pointer] = 6; 


| 
| 
L_fabCfab$v_ofp] = true; 


| > 
object_fab Cfab$b_fns) = 0; 
END; 
TES; 


BPA PLNMNAAAAAAA MINNIE BSS SESE HSE PNNAAAAOOOIIUUN FE SLPS LL 


et a a dd dd dd 
OOS DOOCOCOCOCOOCO COSCO SCOOSOCOOOOOOOCOOCoOoOoOoOoOoOOo 
BAAN IIE RIPUPIPININPYDINPY 4 2? OO OO SS" OOOOOO 
COON NEW 0 ODO UE WN O OONOUEWN "ODO OnNOu 


! Check if /SDL qualifier is present or negated and, if present, get 


ey 
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v04-000 GET_QUALS = Parse command Line. 19-808- 1382 95 08 4 DISKSVMSMASTER: CMSGFIL.SRCIMAIN.B32; 1s oe v04 
; 807 1041 4 ' filename for SDL output: a, 
: B08 18¢¢ ¢ SELECT lis ( ise ) OF . 

; c resent (s L ‘ 
; 810 ng: 4 ° 3 7 
: Bla 1oca clis 1 regzEqual_sDL) = fal | 
° agsl_qua aise; s tl 
; 18 1947 4 cetik | Tt) ocp st asic $7 
>; 814 1048 2 BE 3 7 
3; 815 1049 cl the sCqual_ SD ] = true: : 1 
: 816 1050 é SDL> fabL fab$v_6 {else 3 7 
; 817 1051 SDL-rel =pentnansh rs rst .resultLdsc$w bengehd; : 1 
; 818 1036 2 CH HERO OVE” (.resultldsc$w Length, -resul€Ldsc$a_pointer], SDL_relname); 3:7 
: 819 195 IF cli et value (sd ‘5° value) THEN i | 
; 820 1054 6 BEGIN ; 7 
; 821 1055 6 SOL_ fabl fabsy ofp] = 3 3 
: 8 é 1056 6 SDL fab fabsb_t fns] = vovalustaschy. length); 37 
: B82 1057 6 SDL-fab Cfab$l-fna] = .valueldsc$a_pointerd; 31 
> 824 1058 6 val dsses length) = 37 
3 825 1059 6 value(dsc$a_pointer] = 6; 71 
: 826 1060 6 i | 
; 827 1061 5 ELSES re | 
; 828 1966 5 SDL_fab Cfab$b_fns] = 0; im | 
; S¢3 1063 4 5 | 
; 830 1064 4 TES; 3 1 
; 831 1065 3 END; 3 ¥ 
; B36 1066 2 END; 3 7 
; «83 1067 2 37 
3; 6834 1068 1 END; 3 : 
i 
| 
3 7 
3 1 
OFFC 00000 GET_QUALS: g vi 
. WO Save R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 : 0700 a | 
5B 00000000G 00 9€ 00002 MOVAB CLISGET_VALUE, Ril : a | 
SA 0000' CF 9€E 00009 MOVAB SD_LIST? R1 : 31 
59 0000' CF 9 0005 MOV CLI_FLAGS, R9 : 71 
5E C C2 0001 SUBL Bo, SP : 3 1 
58 1 =O be18 MOVL FIRST_PARM_FLAG 3; 0750 3 Y 
24 AE 02060000 8F DO 0001 MOVL #Bur9 9367 VALOE : 0761 31 
$e AE D4 00021 CLRL VAL Z 3 7 
1C AE 020E0000 8F dO 00024 MOVL pay 1936, RESULT 3; 0767 sy 
0 AE D4 99 C CLRL : 3 7 
C AE D4 f CLRL Avex! : 3 Y 
14 AE 010E00 ; 8F D0 8 2 MOVL #1Y6 4720, DEFAULT 3; 0772 3 7 
1 ag D4 0003A CLRL DEFAULT+4 : 3 
046 =A 8 DO 00030 MOVL P Mer ees 3; 0775 3) 
5 1 00 Obes MOVL STA ; 3 1 
14 AE 51 Ao 9 0 44 MOVZBW inbut _FAB+53, DEFAULT : 078 31 
18 AE 4C =6A9 OD 049 MOVL INPUT-FAB+48, DEFAULT+4 ; 078 3 1 
04 = A9 004E PUSHAB COMMARD _LINE_DESC 3 0788 3 7 
EO AA 9F 99 1 PUSHAB $0.81 LIN : 31 
6B 02 4 CALLS > CLISGET VALUE : 31 
F4 AA 99F 00057 PUSHAB $0. F : 0799 ‘4 
000000006 90 1 FB O5A CALLS ; CLISPRESENT ; 31 
6 OE 061 BLBC 4% 1 5 ; 


1 | 
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69 04 88 4 1SB2 #4, CLI_FLAGS : 080 
16 Ad oF : PUSHAB FILENAME DESC ; 4 
FL AA OOF A USHAB SD_FILE_NAME ; 
68 0 Fe $0 ALLS #2, CLISGET VALUE ; 
OOFF 8F 14 A oi 070 CPW FILENAME DESC, #255 + 0804 
16 AD OF 698 PUSHAB FILENAME_DESC + 0806 
1 DD 00078 PUSHL #1 : 
009710FC 8F DD 9070 PUSHL #990028 ; 
000000006 00 03 FB 008 CALLS #3, LIBS$SIGNAL : 
44 AA 99F OOOBA 1$ PUSHAB SD_SYMBOLS + 0812 
000000006 00 o1 FB 08D CALLS #17 CLISPRESENT : 
4 0 E 4 BLBC = RO ; 
69 40 BF 88 00097 BISB2 #64, CLI_FLAGS + 0814 
50 AA 9F 0009B 2$ PUSHAB SD_TEXT + 0819 
000000006 00 01 FB O09 CALLS #17 CLISPRESENT ; 
04 0 £9 000A BLBC =_-RO,._ 38 : 
69 80 8F 88 O00A8 BISB2 #128, CLI_FLAGS + 0821 
5A 0D OOOAC 3$ PUSHL R10 > 0834 
00000000€ 00 01 FB OOOAE CALLS #1, CLISPRESENT ; 
20 50 £9 000B BLBC = RO, 4$ ; 
69 01 88 00088 BISB2 #1, CLI_FLAGS > 0836 
24 AE 9F 000BB PUSHAB VALUE : 0837 
SA DD 000BE PUSHL R10 ; 
68 02 FB 000C CALLS #2, CLISGET_VALUE ; 
12 50 £9 000C3 BLBC = RO, G ; 
00E4 9 24 AE 90 000C6 MOVB =~ VALUE, LISTING _FAB+52 : 0839 
0oDc 9 28 «AE DO 000CC MOVL VALUE+4, LISTING_FAB+44 > 0840 
24 AE B4 90002 CLRW VALUE : 0841 
28 AE D4 000D CLRL «VALUE +4 + 0842 
OC AA 9F 00008 4$ PUSHAB SD_MDL + 0849 
000000006 00 01 FB 000DB CALLS #17 CLISPRESENT ; 
21 50 E9 O00E2 BLBC ‘ F 
69 08 88 OO0E BISB2 #8, CLI_FLAGS > 0851 
24 AE 9F OO0E8 PUSHAB VALUE : 0852 
OC AA 9F OOOEB PUSHAB .D_MDL ; 
6B 02 FB OOOEE CALLS #2. CLISGET_VALUE ; 
12 50 €9 OO0F1 BLBC ; ; 
0178 9 24 AE 90 b00F4 MOVB VALUE, MDL_FAB+52 + 0854 
0170 C9 28 AE DO OOOFA MOVL VALUE+4, MBL_FAB+44 ; 0855 
34 AE B4 90199 CLRW -*VALUE > 0856 
8 AE 04 0010 CLRL = VALUE+4 + 0857 
1C AA 9F 00106 5$ PUSHAB $D_OBJECT > 0864 
000000006 00 1 FB 1 9 CALLS #17 CLISPRESENT ; 
1 0 1 9 BLBC ; : 
69 02 88 0011 BISB2 #2, CLI_FLAGS + 0866 
24 AE OF 00116 PUSHAB VALU : 0867 
1C AA 9F 00119 PUSHAB SD_OBJECT ; 
68 08 FB 11¢ CALLS #27 CLISGET_VALUE ; 
1 f 11F BLBC —._—«RO, F 
0214 ¢ 24 «AE 0 1 2 MOVB VALUE, OBJECT_FAB+52 > 0869 
020c 9 8 AE 00 001 MOVL  VALUE+4, OBJECT_FAB+44 : 0870 
4 AE B64 ot F CLRW VALUE : 0871 
8 AE D4 1 CLRL  VALUE+4 ; 0872 
4 AA OF 1 6$ PUSHAB $D_SDL : 0879 
000000006 90 1 FB 137 CALLS #17 CLISPRESENT ; 
1 0 £9 0013E BLBC~—E—s«aRO; ; 
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69 10 88 00141 BISB2 #16, CLI_FLAGS : 0881 ; 
24 AE 8 144 PUZHAB VALUE + 0882 ; 
4 AA 99F 00147 PUSHAB SD_SDL : ; 
68 08 EB 146A CALLS #2> CLISGET_VALUE : ; 
1 f 0140 BLB ; : : 
033¢ C 4 AE : 150 7$ MOVB VALUE, SDL_FAB+52 + 0884 : 
0334 C69 8 AE D 4 6 MOVL VALUE+4, SBL_FAB+44 ; 0885 ; 
4 AE B4 0015¢ CLRW ‘VALUE : 0886 ; 
8 AE p4 4 F CLRL VALUE +4 + 0887 5 
24 AE OF 162 8$ PUSHAB VALUE + 0908 : 
8 AA 9F 0016 PUSHAB SD_P1 : ; 
B 08 FB 168 CALLS We CL ISGET_VALUE : ; 
1 E 168 BLBS RO. : : | 
01 57 4 O16 9$ BLBS STATUS, 10$ : i] 
4 001 g RET : 37 
04 AE 9F 00173 10$:  PUSHAB FFFLGS ; 0915 i] 
OC AE OF 00176 PUSHAB STV : Bi 
7E 04 00179 CLRL  =(SP) : 37 
20 AE 9F 0017B SHAB DEFAULT : 37 
1C AE OF OO17E PUSHAB CONTEXT : 3) 
30 AE OOF 00181 PUSHAB RESULT : 31 
3C AE (OF 00184 PUSHAB VALUE ; at 
000000006 00 07 FB 00187 CALLS #7, LIBSFIND_FILE : 71 
: 57 50 DO 0018E MOVL RO. STATUS : 71 
19 57 £8 00191 BLBS STATUS, 11$ : 0917 37 
08 AE DD 00194 PUSHL STV + 0918 31 
57 DD 00197 PUSHL STATUS : : 1 
2c «AE OOF 00199 PUSHAB VALUE : 37 
01 DD 0019C PUSHL # : 31 
0097123A 8F DD 0019E PUSHL #9900602 : 37 
000000006 00 05 Fe OO1A4 CALLS >, LIB$STOP : : 
10 AE 9F OO1AD 11$:  PUSHAB FILE_INFO : 0921 31 
04 AE 10 pO 00180 MOVL #16, 74(SP) ; 37 
04 AE 9F 001B4 PUSHAB 4(SP) ; :T 
000000006 00 02 FB 001B7 CALLS #2, LIBSGET_VM : 77 
56 10 AE 00 018 OVL FILE INFO, R6 : 0922 :1 
08 Ab 24 «AE 08 28 O01C MOVC3 #8, QALUE. 8(R6) ; 
24 AE B4 001C CLRW VALUE : 0923 
28 AE 04 001CB CLRL + VALUE+4 > 0924 
10 89 66 OF 1¢ INSQUE (R6), @FILE_QUEUE_HDR+4 > 0925 
49 58 €9 0010 LBC  ——FIRST_PARM_FLAG, 15$ ; 0931 
58 D4 001D CLRL  FIRST™PA MIELAG : 09 3 
OE 6 £9 1D BLBC CLI_FCAGS,71 : 0936 
0000' CF 1c «AE O1DA OVB  RESOLT, LISTING_REL_NAM+3 > 0938 
0000" CF 20 ~BE | ae oe O1E0 MOVC3 RESULT BRESULT#4, CISTING_RELNAME : 0939 
OE 69 0 FI 1E8 12$: BC #3, CLE_FLAGS, 13$ : 0941 
0000" CF 1c AE 0 OiEC MOVB_ RESULT, ~MDL_REL_NAM+3 > 0943 
0000" CF 20 BE 1€ AE 28 OO1F MOVC3 RESULT @RESULT#4, MDL_RELNAME > 0944 
OE 6 01 €1 OO1FA 13%: BBC # {_FLAGS ; 0946 
0000' CF 1C AE 0 1FE MOVB_ RESULT, “OBJECT REL_NAM+3 : 0948 
0000" CF 20 BE iC AE 04 MOVC3 RESULT @RESULT+4 , “OBJECT_RELNAME : 0949 
OE 6 04 fi ¢ 14$: BBC #4, CLE_FLAGS, 15$ : 991 
oooo' ce 9°98 Gt if AE 38 oosi6 Rye EET OL REL nM RENAME 982 
rg 9 P i ; 
SA DD OO21E 158 PUSHL RIO > 0962 
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903 bytes, Routine Base: S$CODE$ + 0152 


; Routine Size: 


2 
FILE COMPILER § Sep-1984 93:0 :03 VAX-11 Bliss-32 V4.0-742 Page 44 
R = Report an RMS error. 14-Sep-1984 12:46:14 DISKSVMSMASTER: CMSGFIL.SRCIJMAIN.B32;1 (5) 


; § 1968 1 ZSBTTL ‘RMS_ERROR = Report an RMS error.’ . 
3 4 t : ty ! GLOBAL ROUTINE rms_error (message, fab_block, rab_block) = : 
; 839 1 i 1 !ee< : 
> 840 1075 1! : 
> 841 1074 1! This routine issues a multi-line error associated ‘ 
; «484 1075 1! with an RMS operation. The first parameter is the ; 
> «84 1 78 ,: first message to be issued. The second and third : 
; 844 1077 1! parameter is the address of the FAB and/or the RAB block : 
; 845 1078 1! which contains the error codes and the file name. : 
: 846 1979 1! If the third parameter is present, the RAB is assumed ; 
; 847 1080 1! to contain the error status. : 
; 848 1081 1! : 
; 849 IOS8 1 ! Inputs: : 
; 850 1083 1! 3 
; «851 1084 1! message = First message code to be output : 
; b2¢ 1085 1! fab_block = Address of FAB block : 
; 8 1086 1! rab_block = Address of RAB block ; 
> 854 1087 1! . 
; 855 1088 1 ! Outputs: : 
; 856 1089 1! . : 
; 857 1090 1! The message is signaled. ; 
; 858 1091 1 !<=- ; 
; 859 1398 1 : 
; 860 1095 2 BEGIN : 
; 861 1094 2 F 
; Hk 1095 2 BUILTIN <e : 
; 86 1096 2 NULLPARAMETER; ! True if parameter unspecified ; 
; 864 1097 2 : 
; 865 1098 2 MAP : 
; 866 1099 2 fab_block: REF BBLOCK, ! Define FAB structure : 
; 867 1100 2 rab_block: REF BBLOCK; ! Define RAB structure : 
; 868 1101 2 : 
; 869 1198 LOCAL 3 ; 
:; 870 110 nam_block: REF BBLOCK, ! Define NAM structure : 
13 a7) ibe desc: vECcTOR(2); ! Temp. string descriptor : 
; 875 1106 nam_block = .fab_block Cfab$l_nam]; ! Get address of NAM block : 
; 874 1107 IF <nam_block EQC 0 ! If no NAM block present, 3 
; 875 1108 THEN : 
> 876 1109 BEGIN es ; 
s Orr 1110 desc (0) = .fab_block Cfab$b_fns}; ! then use original file string : 
3 ave WN gese 1] = .fab_block Cfab$l_fnaJ: : 
; $80 1118 ELSE IF .nam_block Cnam$b_rsl] NEQ 0 ! If result string nonblank, : 
3 +t 1114 THEN : 
; 5 1115 BEGIN 3 
; +4 i118 desc 9} = ,mam_block ECnam$b_rsi]; ! then use it 3 
; 884 111 desc (1) = .mam_block [nam$l_rsaJ; : 
; 885 1118 END ; : 
; 886 1119 ELSE IF .mam_block Cnam$b_esl] NEQ 0 ! If expanded string nonblank, 3 
; 887 1120 THEN 3 
; B88 1121 BEGIN ; 
; 889 11 § desc fo = .nam_block C(nam$b_esl]; ! then use it : 
; 890 11 desc [1] = .nam_block [nam$l_esal; : 
3 +4 1124 END : 
; 92 1125 ELSE : 
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me SSAGE FILE COMPILER 

RMS_ERROR = Report an RMS error. 

; 11 $ BEGIN 

: 11 desc 9} = .fab_block piebsp. ns $ 

3 11 8 desc = .fab_block Cfab$l—>fnal; 

3 +} 8 END; 

: 1131 IF NOT NULLPARAMETER(3) ! 
; 11 ¢ THEN 

; 11 SIGNAL (.message,1 ' 
: 1134 rab “ereen" prabst. -$t54 ' 
: 1135 -rab_block Crab$l—=stv Si 
; 1136 ELSE 

3 1137 IF .messa ge EQL es atte fap be : 
; 1136 THEN SIGNAL_STOP(.messa 10sec. 

: 1139 .fab _block fab$ L -$t54 : 
: 1140 -fabblock Cfab$l=stvJ) 

: 1141 ELSE 

3 1336 teres scegane, ,desc ! 
3 114 6 block “Pfabst sts], ! 
: 1144 .fabzblock Cfab$l=stvJ5;! 
: 1145 § 

; 1146 

3 1147 2 

: 1148 1 
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! is FATAL, ju 


“11 $732 V4 


2 
Sep =1384 § 0 9 03 VAX=- .0-742 
Sep-19 DISK K$V meh TER: CMSGFIL.SRCIJMAIN.B32; 479 


714 


! Else, use original file string 


If RAB argument specified, 


Signal error 
with RMS error code from RAB 
and secondary code 


cethure to find an input file 
st like other compilers 
so SIGNAL and _STOP 


Signal error 
with RMS error code from FAB 
and secondary code 


.ENTRY RMS_ERROR, Save nothing 
SUBL2 eo 
MOVL FAB_BLOCK, R1 
MOVL  40(R1), NAM_BLOCK 
BEQL $ 
TSTB (NAM_BLOCK) 
BEQL 1$ 
MOVZBL 3(NAM_BLOCK), DESC 
OVL  4(NAMTBLOCK), DESC+4 
BRB 3$ 
1$: TSTB =: 11 (NAM_BLOCK) 
EQL 2$ 
MOVZBL 11(NAM_BLOCK), DESC 
OvL V2 (NAM BLOCK). DESC +4 
2$: MOVZBL 52(R1), DESC 
OVL  44(R1). DESC+4 
3$: CMPBsC«(AP), #3 
BLSSU4$ 
TSTL  12¢AP) 
BEQL 6 4$ 
MOVL RAB pptock RO 
MOVG , =(§P) 
BRB 
4$: CMPL MESSAGE, #9900602 
BNEQ 5 
MOVO (R1), =(SP) 
PUSHAB DESC 
PUSHL #1 
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; Routine Size: 17 bytes, Routine Base: $CODE$ + 055B 


] 
| 
MAIN MESSAGE FILE COMPILER 1984 03:02:03 VAX~11 BLiss=32, v4 0-742 47 | 
v04-000 SEARCH_ERROR = Error searching for input file. 18: é-se0-19 4 714 DISKSVMSMASTER: CMSGFIL.SRCIJMAIN.B32; 29 “a 
; 917 1149 1 ESBTTL *SEARCHERROR = Error searching for input file.’ | : | 
; 918 11 9 1 ROUTINE search_error (fab) ; | 
: 919 1151 4 | 3 | 
; 920 11 § 1 loco ; | 
; 921 11 7! , 
; 4 ¢ i : | Signal an error searching for an input file. Me 
: 924 11 § 1 ! Inputs: 3] 
; 925 11 1! g ] 
; 926 a 1! fab = Address of FAB used during searching .~3 
: 356 1180 : Output | 
- H utputs: P 
: 355 Hey yi utr . 
; 930 1106 1! None $ 1 
ie f). 1165 1 !<<- | 
3 6V35e 1164 1 RETURN rms_error (emsg(searchfail),.fab); : 
ee | 
Te | 
| 
0000 00000 SEARCH_ERROR: | 
«WORD Save nothing : 1150 | 
of AC DD 00002 PUSHL : 1164 , 7 
0097123A 8F DD 00005 PUSHL #9900602 3 ee 
FF6E CF 02 FB 00008 CALLS #2, RMS_ERROR : : ] 
04 00010 RET ; a 
2 1 
5 4 
s 1 
7 
z. 3 
| 


2 
MAIN MESSAGE FILE COMPILER : 18-59-19 4 99:08:03 VAX-11 Bliss-32 V4.0-742 Page 48. 
v04-000 DO_FILE = Processing associated with input file 14-Sep-1984 12:46:14 DISKSVMSMASTER: CMSGFIL.SRCIMAIN.B32; 1 (7) 
> 934 1165 1 XSBITL 'DO_FILE - Processing associated with input file.’ 
3 935 1398 1 ROUTINE do_file = 
. ¢ ° 1167 1 
; ¥ 1168 1 !--- 
; 938 1192 1 ! 
; 939 1170 1! This routine is called once for each file specified 
; 940 1171 «1! in the input file List. The file is opened and parsed 
; oh BEL : and all message definitions are saved in virtual memory. 
; 94 1174 1 ! Inputs: 
> 944 1175 1! 
> 945 1176 1! input_fab = Input FAB 
: 946 1177 1! input_rab = Input RAB 
; 947 1178 1! 
: 948 1179 1 ! Outputs: 
> 949 1180 1! 
: 950 1181 1! Message definition blocks 
> 951 1186 1 !ee= 
; 326 1183 (1 
; 1184 2 BEGIN 
: 954 1185 § 
3 999 1186 LOCAL 
; 956 1187 2 status,parse_status; ! Status codes 
: Por 1188 2 
; 958 1189 2 status = SOPEN (Fas = input_fab); !' Open the input file 
: 959 1190 2 IF NOT .status ! If error found, 
; 960 1191 . T 
; 961 1136 BEGIN 
; 962 1193 3 rms_error (emsg(openin), input_fab); ! then signal the error 
; 965 1194 3 RETORN .status; 
; 964 1195 2 END; 
; 965 1196 2 
; 966 1197 2 status = SCONNECT (RAB = input_rab); ! and connect the input stream 
: 967 1198 2 IF NOT .status ! If error found, | 
; 968 1199 THEN 
: 969 1200 BEGIN 
; 970 1201 rms_error (emsg(openin), input_fab, input_rab); ! then signal the error 
: 971 1306 RETORN .status; 
: 972 1205 2 END; 
: «973 1204 
3: «974 1205 status = get_module_name (input_fab); ! Get module name 
; 975 1206 IF NOT .status ! If error detected, 
: 976 1207 N 
s 977 1308 RETURN .status; ! return with status 
; 978 1209 
: 979 1619 § ‘ 
; 980 1211 ! If the Listing file has not ret been opened, open 
; 98) sig : it now. This is done after the input file open so 
; oe ! that the name will be sticky with the input file name. 
; «984 1215 
; 985 1 \¢ IF .cli flags Cqual listing] ! If /LIST specified, 
3 358 : : . es -listing_fab Cfab$w_ifi] EQL 0 ! and not already opened 
; «988 1 i§ BEGIN a : 
; 989 1220 status = SCREATE (FAB = Listing, fab); ! Create the Listing file 
; 990 1221 If NOT .status THEM rms_error Cemsg(openout),listing_fab); 
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ra 


T a a THEN rms_error (emsg(openout),sdl_ fab,sdl_rab); 
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aaSepa19B4 1e:6:14 DL SKSVMSMAS! 


NOT -Status THEN rms_error (emisg(openout), Listing_fab,listing_rab); 
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wr 
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! If /MOL specified 
! and not already opened 


ab); ! Create the mdl file 
be st otue a rms serbr (emsg(openout), »mdl_fab); 

ra 
T setae THEN rms_error (emsg(openout), mdl_fab,mdl_rab); 


! If /SOL specified 
! and not already opened 


! Create the sdl file 
atus s THEN rns. serge (emsg(openout), »sdl_fab); 
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' Close the input file 
i If error found, 


input_fab); 
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#9900186 
a3, RMS_ERROPR 


R4 
#1, GET_MODULE_NAME 
RO, STATUS 
STATUS, 4$ 
STATUS, RO 


CLILFLAGS, 6$ 


LISTING. FAB+2 
LISTING FAB 
#1, SYSSCREATE 
RO, STATUS 
STATUS, 5$ 
LISTING FAB 
#9900198 

#2, RMS_ERROR 
LISTING RAB 

“i, SYSSCONNECT 
RO, STAT 

STATUS os 
LISTING_R 
LISTING: FAB 
#9900198 

#3, RMS_ERROR 
#3. CLI-FLAGS, 8$ 
MDL_FABF2 
8$ ~ 

MDL_FAB 

#1, “SYSSCREATE 
RO, STATUS 
STATUS, 7$ 
MDL_FAB 
#9900196 

#2, RMS_ERROR 
MDL_RAB 

#1, “SYSSCONNECT 
RO STATUS 
STATUS 

MDL _RAB 
3500196 


a 
#3, RMS_ERROR 
#4; CLITFLAGS, 10S 
FABF2 
FAB 
#1, "SYSSCREATE 
5 Us 
STATUS, 9$ 
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] 
MAIN MESSAGE FILE COMPILER 18 -Sep-1984 4 03: 03: 03 VAX-11 Bliss-32 V4.0-742 oF St. 
v04-000 DO_FILE = Processing associated with input file 13 -Sep-1984 DISKSVMSMASTER: CMSGFIL.SRCIJMAIN.B32; 39 “i | 
$ 1 Ff 111 CALLS #1, SYSSCONNECT ; | 
9 DO 00114 MOVL RO STATUS : 
1 117 LBS STATUS, 10$ + 1243 
033¢ C4 «OF OO1IA PUSHAB SDL_RAB ; 
get 4 9F 0011 PUSHAB sor F : 
009710A6 &8F DD 4 PUSHL #9900 ; 
65 3 FB 001 CALLS @# RMS SE : 
00006 cf : FB 4 10S: CALLS mo: Ph + 1246 
3 dO 001 MOVL Pande “Status : 
54 DD 4 PUSHL + 1248 
000000006 00 1 F 135 CALLS at. SYSSCLOSE : 
52 9 D o1 c MOVL : 
08 E8 0013F LBS STATUS, 11$ + 1249 
54 DD 0142 PUSHL + 1251 
0097121A BF DD 0014 PUSHL #9900570 : 
65 0¢ FB OO14A CALLS RMS ERROR ; 
50 53 pO 0014D 118 MOVL oes MEATUS. RO + 1253 
04 00150 RET + 1255 


; Routine Size: 337 bytes, Routine Base: S$CODE$ + 056C 


= 


BEGIN 
per = CHSFIND_CH(.size, .addr, *>"); ! Alternate syntax 
4 EQL 0 


oOo OOOOOOOOMOMMdoc co 


K 2 
MAIN MESSAGE FILE COMPILER 16-Sep-1984 02:02:03  VAX=11 Bliss-32 V4.0-742 Page 52 MDL 
v04-000 GET MODULE _NAME e8epa Teas 88:0 eg Ped lwOhASTERcCNeGr TC “SacaMAIN.032:1°%" «BS v04- 
: 10 $ 1 § 1 ZSBTTC ‘GET MODULE _NAME' 
: 18 4 } { } GLOBAL ROUTINE get_module_name (fab) = 
: 1029 1259 1 ten 
: 1030 1260 1 | | 
; 1031 1261 1 This routine figures out the module name to be 
3 1036 1 $6 1! associated with the given file name. e 
4 1034 : o : module name used is the name of the file. 
; 1035 1265 | i Inputs: 
$n 20 eae 
; 1039 1269 1 | Outputs: 
: 1040 1270 1! | 
; 1041 er). module_name = Descriptor of module name string 
: 1966 : if; } r0 = status (unsignaled) 
> 1044 1076 1 
 joee 1396 5 SEGIN 
: 1047 1277 2 MAP 
3 4 tA: 2 fab: REF BBLOCK; ! Address of FAB block 
: 1050 1280 2 LOCAL 
3 1051 1281 input_nam: REF BBLOCK, ! Address of NAM block 
: 1936 1e86 addr,size, ! Temporary descriptor 
5 Ver 1se7 2 ptr; ! String pointer 
: 1055 \ 5 s input_nam = .fab Cfab$l_nam); ' Get NAM address 
; 1056 1286 § size = .input_nam [nam$6_rsl); ! Get result name string 
: et \s : addr = .input_nam [nam$l"rsaJ; 
: 1059 1289 é tid = CHSFIND_CH(.size, .addr, 'J]"); ! Find start of file name on input side 
; 1060 1290 F .ptr EQL 0 ! If not found, 
: es \§ 1 THEN 
; 1068 1598 
: 1064 1294 3 -ptr ! If still not found 

3: 1065 1295 4 EN BEGIN ! Then make up a name 

; 1066 1296 4 module_nmame [0] = ZCHARCOUNT ("MESSAGE'); 

: 1067 1297 4 module name [1] = UPLIT ("MESSAGE"); 

3; 1068 1298 4 RETURN true; 

3 1069 1299 END; 

3 4A ! 00 END; 

: 1076 i ‘ size = .size - (.ptr + 1 = .addr); ! Figure descriptor of file name 

: rr : B? addr = .ptr + 1; 

3 1075 1305 tr = CHSFIND_CH(.size, .addr, '."); |! Find where file name ends 

: 1976 1 5) fF -ptr EQL 0 ! If not found, 

3; 107 1 3 THEN 

; 1078 } 3 RETURN rms$_rst; ! return invalid expanded string 

: 1080 1310 module_name £9} = .ptr - .addr; ! Figure descriptor of file name only 

: Hse ! 1) module_name [1] = .addr; 
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END; 
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S$CODES + 06BD 


mx 
= 
—m 


S$PLITS,NOWRT ,NOEXE ,2 
\ME SSAGE\<0> 


SCODES$ ,NOWRT ,2 


GET_MODULE NANE . Save R2,R3,R4 
MODOLE_NAME, 


af NPUT-NAM), ADDR 
#5. SITE. (ADDR) 


R1 

PTR 

3$ 

#62, SIZE, (ADDR) 
2$ 


R1 
PTR 


3 
#7, MODULE_NAME 
f .AAY, MODOLE _NAME +4 


PIERO TST PEN SIZE 
1(R1), ADDR 
#46, §1ZE, (ADDR) 


a 
PTR 


5$ 
#99996, RO 
ADDR, PTR, MODULE_NAME 


ADDR MODULE _NAME #4 
#1, RO 


MESSAGE FILE COMPILER 16- sep-1984 93:02:05 VAX=11 BL $-32_V4.0-742 Page 54 MDLC 
HANDLER = Save most severe error code. -$ep-1984 12:46:14 DISKSVMSMASTER: CMSGFIL.SRCIJMAIN.B32;1 (9) | v04- 
; 1087 1 16 1 XSBITL ‘HANDLER = Save most severe error code.' | 
; 1088 1317 1 ROUTINE handler (signal_args, mechanism_args) = 
; 1089 1 18 1 | 
; 1090 1319 1 === 
; 1091 1320 1! 
3 1036 1521 1! This condition handler gets gentrot on any signalled 
; 109 1 ¢ 7 condition in order to save the highest severity error 
: 1094 1 1! to be returned by exit from the image. 
; 1095 1324 1! 
: 1096 1325 1 ! Inputs: 
; 1097 1326 1! 
; 1098 1527 1! signal_args = Address of signal argument List 
3 19 ; 3 ! mechanism_args = Address of mechanism argument List 
; 1101 1330 1 ! Outputs: 
: 1108 tj ie 
: 110 1 3 ; t worst_error is updated with highest severity error. ; Re 
3 1104 1335 1! 
3; 1105 eee 1 !--- 
: 1106 1335 1 
3 1107 1336 2 BEGIN 
3 1108 1337 
3; 1109 1338 MAP 
3; 1110 1339 signal_args: REF BBLOCK ! Address of signal arg List 
3 1333 it 9 5 mechanism_args: REF BBLOCK; i Address of mechanism arg list 
: 1113 1348 2 LOCAL ! 
3 1332 ok § code: BBLOCK CLONG); ! Condition code (longword) 
; BY 134? code = .signal_args Cchf$l_sig_name]; ! Get condition code 
: 1118 1347 2 IF .code Csts$v_severity] GIR .worst_error [sts$v_severity] 
3; 1119 1348 2 THEN 
5 11s¢ if § worst_error = .code OR sts$m_inhib_msg; ! Set new worst error 
3 1122 1351 2 ss$_resignal ! Continue signalling 
3; 1123 1326 2 
3 1124 1353 1 END; 
0008 00000 HANDLER:.WORD Save nothing s 1317 | 
50 04 AC D0 00002 MOVL SIGNAL OARGS RO : 1345 
3 04 ad 00 Bp NbR MOVL 4(RO), CODE ; 
51 9000" CF 0 0 EF OOOOA EXTZV 40, Huo WORST -ERROR, R1 ; 1347 
is i - a $5 ooolg BleO. 18 ; 
0000" CF 50 10000000 er 3 bh) 15938 Ror’ CODE, WORST_ERROR ; 1369 
50 0918 F ; 685 1$ MOVZ2WL # : 1353 


; Routine Size: 40 bytes, Routine Base: $CODE$ + 0725 | 
| 


N gf 
MESSAGE FILE COMPILER 16-Sep ~138¢ 9¢: 9¢: 9 Vv Liss-32 V4.0-742 Page 
14-Sep-1984 12:46:14 D MASTER: CMSGFIL.SRCIJMAIN.B32;1 (1 


] 
| 
1385 1 XSBTTL '' 
1355 1 END 
| 
| 


ouw 
~~ 


E 
1556 0 ELUDOM 


.EXTRN LIBSSIGNAL, LIBSSTOP | : 3 

5 PSECT SUMMARY ; ; 

: Name Bytes Attributes ; ; 

: SPLITS 168 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | 

; SOWNS 5004 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 3 

; $GLOBALS 928 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ot 3 

; SCODES 1869 NOVEC. NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | ; ; 

| : 3 

3 3 

>. 3 

; Library Statistics | : ; 

Fe Se ae ee i ee eee Symbols -------- Pages Processing | i 3 

3 File Total Loaded Percent Mapped Time ‘ ; 

: -$255$DUA28: CSYSLIBISTARLET.L32;1 9776 84 0 581 00:01.0 | ; ; 

| 3 § 

, 35 

: 

s 

, § 

3 

; COMMAND QUALIFIERS : ; 

3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MAIN/OBJ=OBJ$:MAIN MSRC$:MAIN/UPDATE=(ENH$:MAIN) ; ; 

: Size: 1869 code + 6100 data bytes é ; 

3; Run Time: 00:48.1 : 3 
; Elapsed Time: 02:50.2 : 

3; Lines/CPU Min 1691 : 3 
3 Lexemes/CPU-Min: 37678 ‘. : 
; Memory Used: 525 pages | . 

; Compication Complete : 

: 

4 

ae | 
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